2 REM <CTRL-M><CTRL-M>********************<CTRL-M>* *<CTRL-M>* HELP.UPDATE *<CTRL-M>* *<CTRL-M>* COPYRIGHT 1986, *<CTRL-M>* BY RANDY BRANDT *<CTRL-M>* *<CTRL-M>********************<CTRL-M>
120 VTAB 23: PRINT : PRINT "Press M for Main.Menu, A for Applesoft, or Esc to continue";: CALL CL: POKE C8,Q(QO): INVERSE : PRINT " "Q$(QO)" ";: NORMAL
122 & KEY,33,24:X = PEEK(0): IF X = 27 OR (X = 13 AND QO = 2) THEN GOSUB 9950: GOTO 100
130 IF X = 77 OR X = 109 OR (X = 13 AND QO = 0) THEN X = 77: GOTO 150
135 IF X = 65 OR X = 97 OR (X = 13 AND QO = 1) THEN X = 65: GOTO 150
140 IF NOT (X = 8 OR X = 21) THEN & BEEP: GOTO 122
142 IF X = 8 THEN QO = QO -1: IF QO = -1 THEN QO = 2
144 IF X = 21 THEN QO = QO +1: IF QO = 3 THEN QO = 0
145 GOTO 120
150 GOSUB 9800
155 IF X = 77 THEN PRINT D$"-MAIN.MENU"
160 HOME : PRINT CHR$(21): PRINT : PRINT "TYPE "Q$"RUN"Q$" TO RESTART.": END
6200 PRINT D$"BLOAD HELP.AWP,A$4500": VTAB 23: PRINT : PRINT "Insert the "AW$" PROGRAM disk; press Return";: & KEY,25,24
7000 & BOX,M$(1),10,7,11: VTAB 9: PRINT : HTAB 16: PRINT "Where is the "AW$" PROGRAM disk?": HTAB 16: PRINT "Select (1) when 'Current Directory' is correct.": GOSUB 9000: IF X = 27 THEN 60
10010 IF EL = 20 THEN PRINT "<CTRL-G>The file MENUS must be on the disk": END
10040 IF EL = 6200 THEN & BEEP: VTAB 23: PRINT : PRINT "Unable to load HELP.AWP; insert the MacroWorks disk and press a key";: CALL CL: & KEY,35,24: GOTO 60
10050 IF EL = 155 THEN VTAB 23: PRINT : PRINT "Insert the MacroWorks disk and press Return ";: CALL CL: GET X$:X = 77: ON X$ < > CHR$(27) GOTO 155: RUN
10070 IF EL = 7030 THEN & BEEP: VTAB 23: PRINT : PRINT "Insert the "AW$" PROGRAM disk now and press a key";: CALL CL: & KEY,28,24: GOTO 7000: GOTO 7030
10080 IF EL = 7020 THEN 7030: GOTO 7020
10090 IF EL = 9170 OR EL = 9180 THEN & BEEP: VTAB 23: PRINT : PRINT "Unable to find directory; press Return";: CALL CL: & KEY,20,24:PF$ = Y$: GOTO 9000: GOTO 9180
11000 POKE 216,0: RESUME
15000 DATA "Install MacroWorks Help Screen","Program Explanation","Quit" : REM A$(2)
15200 DATA "Update Menu","Update AWP Help","Load HELP.AWP" : REM M$(1)
15300 DATA "Current Directory:","Slot 6 Drive 1","Another Slot and Drive","Another Pathname": REM D$(3)